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1 
2 
3 
4 

5 
6 

3 
9 

n 

1.2 
13 

14 

15 
16 
17 

18 
19 

7e 

?i 

72 
?3 
?4 
?5 
?6 
?7 
28 
59 
30 
31 
3 2 
33 
3 4 
35 
36 
37 
36 
39 
40 
41 
42 
43 
44 



?,).TZ?'Z 



;lyI5 sL)r:-PRnGRA>^ ASSE"?i.rn viTh SYSTEM paRa>^ETER FILE - S,MAC(V414) 
XLIST 

• THI? Su = -or:^G''A" ASSE'^L'LET ■■'ITh C^NriGuRATlON DEPENCEMT feature switches t FT50SB,MAC( 
V(5?3) 

XLlST 

LIST 
TITLE 'iULSFG - DU"MV h|GM =EGMFNT ROUTINES FOR MACHINES WITH JUST ONE REd - V406 
SUF'TTL T, HASTI-GS/TH Tg P JU'-l 69 
XP V\iULSGi4?6t 

iPUT VERSION NUMOER IN LOAHEP STORAGE map ANn GLOB LISTlvG ' 

FNTRv KiuLSf.G 
'JUlSFG: ;ENTPY POINT SYMBOL TO CAUSE LOAH OF NULSEG IF RrQUIREO 

i(IE INSTEAD OF SEGcr^N OR NEITHER) 

MvlTlALliE LOC T.»''RrG J r- -SfrLAG S'^FTWAHE o-) HAHDf/ARF O^NLY 1 RFC CAPABILITY) 
iAMQ! ANi^RG E^ECOTf:^ rr<nv| C'CF AFTER HARDWARE EXAMINED F0= ? REG CAPABIi It;y. 



INTERN A'DSR", 



("d7/:''l AiND2Rb = H 



iCLOCi^l 



(FLAG =YSTEM DOES VQT HAVE 2 REG. CAPABILITY 

jSIN^E at least software OOE<5 \'0T PECAUSF THIS DUMMY 

;R0UTINE LOA-ED 



!»0(!i0P!a 
('0K0(«1 



!\teRN SfTHGh 

621340 001777 SETHGH! TL? °R0G,1777 JCLEAR OUT PROTECTION FOR HIGH SEG IN CASE THIS 
263140 00JXB0 POPj POP, lis J 2 REG MACHINE 



XP ChGHGij.R/. 
; COMCSS 

XP PRThGi-.R.'. 

XP ASGHGh.Rj 

X p C H « M f_ T , P ,.; 

XP ANVSAV.=i 



iC-URGF rjRRENT ^ISER FOR HIGH SEG 



iRPP'T HIGH SEG CORE 

iCLEAR HIGH I^EG NAMES ON ASSIGN COMMANlT 

;CH£CK FOR MEDDLING 

I4NY jng 0"ING A SAvr INVLOVING HIGH SEG? 



NULSTG 



- DUMMY HIGH SEGMENT F?OUTINfS FOR MACHINES iJITH JUST ONE ^EG 
T. HASTINGS/TH TS ? JUNE 69 
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45 
46 
47 
4B 

49 
■50 
51 
'J2 
b3 
?4 
■55 

'i? 
?8 

S9 
6« 
'.1 
ftZ 

(SJ 
64 
^5 
66 
67 
68 
6 9 
761 
71 
72 
73 
74 
75 
76 
77 
78 
79 
Pg 
31 
82 

34 

S5 



!^0(»li)»2 31304K 

f;0f)(ilB3 263140 

{"000(14 315040 

f000l»5 350003 

C0P0(»6 263140 



r0!'010 
1?0I^01,0 
f00Hll 

f"0ei0i2 
f!a00ij 



■^500«0 
2540'^0 
3500;'3 
254210 



00005)0 
000l3E!0 

00P'0O0 
000030 
000000 



'00007 2540^0 0000C 



000000 
000000 
000300 
000H00 



iCOREl 

XP HGHnEP.F)0 

XP KILHGHi'*0 

XR URtMAPiR0 

XP CURHGN,R0 

XP fRtCOP,R0 

XP FRLCRlfRl 



;0EPOSIT HIGH 5EG(EHR0R) 

li^EMOVE MIGH SEG ERQ" LOGICAL AQR SPACE 

IREMAP UUO 

iCHAwGE PEUOC HARD IE CURRENT USER AFFECTED 

!FREE CORE IN NON-SHAP SYSTEMS 

IFREF CORE I^' SHAPING SYSTEMS 



INTERN UCORHI iSU«SEG 
FXTERN CORMaX.USRREU 

UCORHl! CAMLE TACUSRREU 
PQPj POP, 

SUMSfG; CAMGE TACCORMAX 
Ri: AOS (POP) 
R0! POPJ POP. 

(ERRCON 



)TRYING TO ASSIGN CORE TO HIGH SEG? 
lYES. ERROR RETURN 

) no, give ok return 

;aRG ge max length (HIGHEST+D? 

ino, give ok return 

SYES. GIVE ERROR RETURN 



XP SEGILM.Rl 

;SAVGET 

XP SETE:XT,R0t 
XP SETEXl,R0t 
XP SAVDDL,R0 

INTERN UGETHI 
EXTLRN UGTERR 

UGETHI: JRST UGTERR 



;WIL" TRANSFER RETURN 



iDIDHLE REUOC, DURING OUMP MODE O/P FOR HISEG 



lERROR RETURN TO USER UNLESS HALT IN LH -.F UU0*1 



INTERN SaVHGH.GETHGH 
FXTERN SGERHA,SGAM0D.SG3 



SAVHGH! 
GETHGH; 



OPEN 0,SGAMOO 
JRST SGERRA 
AOS (POP) 
JRST SG3 



ITRV TO INIT DEVICE 

lERROR 

ISKIP RETURN 

lAND GO SETUP LOWER CORE 



NULSEG - uUM^y HIGH SEGMEMT ROUTIMCS FOH MAcmMEP W;TH JDST ONF REG 
T. HASTIUGS/TH TS ? JUME 69 



V4''6 



«<ACR0,V36 i9:en <!-jjN-65 "AGE 



96 
a? 
38 
= 9 
"\i 
91 
9 2 
93 
3<1 
05 
96 
97 

06 
99 
1-/K 
1^1 
IJ'^ 
l-"3 
1?!4 
1.-5 
1,"6 
1"7 

i("e 

1.'9 

we 
111 

112 
113 

114 

115 
116 
117 
118 
119 
l?t? 
1?1 
122 
123 
1P4 
125 
126 
127 
128 
129 
13B 
131 
132 



ibWAP 



P0?0i4 317642 000iJ7,0 
Cei'Sib 350>?':'3 00S!0ffl0 
(?l?0016 263140 PiB'?IO^0 



7a?017 205240 004030 
000020 436044 0000,.)0 
300021 263140 00?000 



IMERN FTSWAP 



IF\i FTSWAP, < 

XP FI«JIM,R1 

F I iO T , R 1 

FO'<SI?,R0 

FRESWPiRl 

F IThGw jR0 



XP 
XP 
XP 
XP 



INTEPN FITSIZ 
FXTEBN CORTaL 

FITSIr!! CAf'G ACl, CORTAL 
ADS (POP) 
POPJ POP, 



iFlMFISri SWAPPING I\ 

IFI.NISM LO^' SEG OUTPUT - NOTHING MORF TQ '30 

iSIHF OF J?H FREED UP 

JFREE niSK SPACE - N'^ OQRMANT SEG FQUTND RETliRN 

;CMErK IF HISEG i'EIi'lG SWAPPED IN 



MILL LOW SEG FIT IN CORF? 

iYES, SWAP HIM IN 

li\3, MUST S^AP SOMEONE ELSE OUT FIRST 



INTERN FORHGH 
EXTERN JRISTS 

FORHGH! "OVSI Tac,ShF (STOP 10 AFTER NEXT RUFFERFUL IF ACTIVE 

lORM TAG, JTTSTSI ITEM) ICHECKFD BY AOVcFF , ADVBFF ROUTINES 
PQPj POP, 

> 

iSYSINI 

XP SEGINI,R0 

;UUOCON 



I INITIALIZE HIGH SEGS 



XP HELSEG,Pe 
XP RELSG1 ,R1 
XP HGHWRO,P0 
VP HRESET,R0' 

INTERN USTUWP 
EXTERN RTHER 

"00022 264000 003000 USTLIWP! JRST RT2ER 

XP Hr.HWPn,R0 
XP USPY,S0 



END 



;SUPERCEDE HIGH SEGS ON RECREATE 

fRENAME UUO 

IGET WORD FROM HIGH SEG - ERROR "ETuRN 



IGET WORn FROM HIGH SEG -ERROR 
ISPY UUO - ERROR 



NO Ei?RORS DETECTED 
PROGRAM PHEAK IS 000236 



NULSFG - OUMi^Y HIGH SEGMENT ROUTINFS FOR [MACHINES WITH JUST fiNF REG 
SY^'BOL TIBLE 



V^f^a 
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ACl 


00P1S15 


INT 


ASGHGH 


7l0Hi;Z6' 


INT 


CORMAX 


0B00?4' 


EXT 


F I IV 1 M 


i;i00g-^5' 


INT 


FITSIE 


aaaait' 


INT 


FRECOR 


5!002('6 ' 


INT 


FTCCL 777777 777777 




FTPC10 777777 777777 




HGHDEP 


0ia00i?6 ' 


INT 


ITEM 


000HIM 


INT 


NULSFG- 


!5000("0' 


INT 


PRTHf.H 


0000^6 ' 


INT 


RELSFG 


j)000c;6' 


INT 


SAVDHL 


0000£"6 ' 


INT 


SEGIMI 


000006' 


INT 


SETHGH 


0000?0' 


INT 


SGERRA 


0B0t-ll' 


EXT 


TAC 


0000('l 


INT 


UGTERR 


k) ■/ 7 ' 


EXT 



USRRFL 



0001302' EXT 



AN02!'G 


i'000!'0 


INT 


ChGhGH 


0a?!0"6' 


INT 


COITAL 


O00K)-14' 


rxT 


FI'JOT 


0000C<5t 


I NT 


F R H G H 


0130017' 


INT 


FRECRl 


000(1)./ 15' 


INT 


FTOISK 777777 777777 




FTSl,AP 777777 777777 


INT 


MGHwRO 


0000ia6 ' 


INT 


JBTSTS 


0000?0' 


EXT 


('DP 


000003 


I NT 


R0 


5?000(»6' 




PELS':! 


00000b' 


INT 


SAVhGH 


00001 ' 


INT 


S£T£X1 


0a00'<6' 


INT 


SG3 


00001 3 ' 


FXT 


SHE 


004000 


INT 


MCORHI 


0030r'2' 


INT 


URlf\? 


00H0;'6' 


INT 


USTU'.JP 


^000?2' 


INT 



ANYSAV 


0006)05' 


INT 


CHKMED 


000006' 


INT 


CURHGH 


000006' 


INT 


EI THGH 


000006' 


INT 


FORSIZ 


000006 ' 


INT 


FRESMp 


000005' 


INT 


FTLOGI 777777 777777 




GETHGH 


000010' 


INT 


HRESET 


000006 ' 


INT 


KILHGH 


000006' 


INT 


PROG 


000007 


INT 


Rl 


000005' 




HTZER 


000022' 


FXT 


^EGILM 


000006' 


INT 


SETEXT 


000006' 


TNT 


SGAMOD 


000010' 


FXT 


SUMSEG 


000004' 


INT 


UGETHI 


000007' 


INT 


IJ S P Y 


000036 ' 


INT 


VNJLSG 


000406 


INT 



A 


6« 


b 


ACl 


6« 


6 


AC2 


6# 


6 


AC3 


6« 




ALTE'JR 


6# 


6 


AL 


6# 


6 


ANOa-JG 


7i 


?5« 


ANYS«V 


44« 


«< 


ASGHTH 


12« 


42 


ASSCnf« 


6# 


6 


ASSPRG 


6# 


6 


B 


5* 


6 


BUFP'T 


6# 


6 


BUFWRD 


6# 


6 


CHGHflH 


37# 


37 


CHKMFO 


4i# 


43 


CLKR 


6# 


6 


CLSIv 


b# 


e 


CLSO"T 


bK 


6 


CMWB 


tn 


b 


CORC-T 


6« 


b 


C0RM4X 


K4 


59 


CORTAL 


yfa 


l''i0 


CURHOri 


■iki* 


50 


D 


5« 


6 


OAT 


6# 


6 


DCL 


6# 


6 


DCLI 


b# 


6 


CICUO 


b# 


6 


DCLR 


bn 


6 


DDI 


b# 


6 


000 


6« 


6 


OEN 


6# 


6 


OEVAHR 


6# 


6 


OEVB'.iF 


6* 


6 


OEVCHR 


6# 


6 


OEVCTR 


6# 


6 


DEVDAT 


6# 


6 


DEVEVT 


6# 


6 


OEVFIL 


6# 


6 


DEVIAD 


6# 


6 


DEVnS 


6# 


6 


DEVLOG 


6# 


b 


DEV^OO 


6# 


b 


DEVJAM 


6# 


b 


DEVOAD 


6# 


6 


DEVPPN 


0« 


6 


DEVPTR 


6# 


6 


DEVSER 


6« 


6 


TGP 


b# 


6 


HHVG 


btt 


6 


DIM 


6# 


6 


OIN'I 


bit 


6 



DLK 


6* 


6 


DMT 


6« 


6 


DNAERR 


5# 


6 


DOU 


6# 


6 


OH 


6# 


6 


DRU 


6# 


6 


DRM 


6# 


6 


OSFR 


6« 


6 


DSI 


6# 


6 


DSKHLB 


b# 


5 


nso 


6« 


6 


DVAVAL 


6# 


6 


DVCO = 


6# 


6 


DVDIP 


6« 


6 


DVDIRI 


6# 


6 


DVOIS 


b# 


6 


OVOSK 


6# 


6 


DVHTA 


b# 


6 


QVIN 


6« 


6 


OVUMC 


6# 


6 


nVLPT 


6# 


6 


DVMTA 


6# 


6 


DVOUT 


6# 


6 


DVPTP 


6# 


6 


nVPTR 


6# 


6 


nVTTY 


6« 


6 


I^NTRB 


6# 


6 


FBMERR 


6# 


6 


F I N 1 M 


Qii# 


92 


FINOT 


<?i# 


9j 


FITHRH 


96# 


«6 


FITSIZ 


<57 


1?0«( 


F NT ERR 


bH 


6 


FORHr.H 


1C1 


1F7» 


FORSIZ 


94« 


94 


FRECi^R 


51* 


51 


FRFCRl 


52# 


b2 


FRFSWP 


95# 


Ob 


FRGSEG 


6* 


6 


FT2RFL 


6# 




FTATTA 


6« 




FTCCL 


]H« 




FTrHFC 


b» 




FTnlSK 


1U# 




FTEXAM 


6# 




F T F I \. I 


6« 




FTGETT 


6« 




FTHALT 


6« 




FTKCT 


6« 




FTLOGI 


10# 




FTMONP 


6# 




FTPRV 


6# 




FTRA10 


b* 





FTRC10 


ia# 




FTRCHK 


6# 




FTREAS 


6# 




FTSLEE 


b# 




FTSW4P 


10« 


<^B 


FTTALK 


6# 




FTTIi-E 


6# 




FTTS4C 


b# 




FTTRPS 


bit 




FTTTYS 


b# 




GETHGH 


78 


B2 


HGHOEP 


<17# 


47 


HGHWRD 


121# 


121 


MRESET 


172* 


122 


HS4MSK 


6# 


6 


MSiP^S 


b# 


6 


HS4SI2 


bfl 


6 


HUMGCT 


bit 


6 


HU'-iGST 


bit 


6 


I 


bit 


6 


IB 


bit 


6 


IBUFn 


bit 


6 


ICLOSB 


b» 


6 


ILM 


b# 




ILUERR 


6# 


6 


INPFn 


bU 


6 


INITIO 


bU 


6 


INP8 


b» 


6 


10 


bit 


6 


lOACT 


b# 


6 


lOREG 


bit 


6 


lOPKTL 


6# 


6 


lOPOT 


b» 


6 


lOCOK 


bt> 


6 


lODEk'D 


6« 


6 


lOnERR 


b# 


6 


lUnTFR 


b» 


6 


lOENn 


b* 


6 


lOFST 


b« 


6 


10 MPM 


b* 


6 


lOSRf-K 


6# 


6 


I0P4R 


6* 


6 


lOS 


6« 


5 


lOTEMD 


6# 


6 


lOUSr 


6# 


6 


I OH 


bit 


6 


lOWC 


btt 


6 


IPPERR 


bt 


6 


ITfM 


bt 


6 


JACCT 


bit 


6 


J B F 4 n R 


bit 


b 


JBFCTR 


b* 


6 


JBFPTR 


btt 


b 



129# 



129 



JBTSTS 


1P5 


1'8 






jeuF 


6# 


6 






JD4T 


6* 


6 






JERR 


6# 


6 






JLOG 


6«f 


6 






JNA 


6« 


6 






JRn 


6# 


6 






JWPOS 


6« 


6 






JWS17 


b« 


5 






JXPN 


bit 


6 






K I L H ^, H 


ASH 


48 






LIST=M 


b 








taOKc 


btt 


6 






MEDDLE 


bit 


6 






IMECEliR 


bH 


6 






NLEERR 


b# 


6 






NSDERR 


bit 


6 






NSFERR 


bit 


6 






MSMF 


bit 


b 






MSR81T 


bit 


5 






N3WP 


bit 


6 






NULSFG 


16 


17« 






MXf 


6# 








OBUF" 


6# 


6 






OCLOSH 


bP 


6 






ouTBre 


bH 


6 






OUTP" 


bit 


6 






POP 


btt 


6 


.^4 


?/ 


pov 


btt 








PROG 


btt 


6 


:^3 




PRTERR 


bU 


6 






PRTHGH 


41«( 


41 






PVSPYA 


6« 


6 






PVSPYN1 


btt 


6 






PVTRPS 


6« 


6 






RB 


:^7 


41 


42 


4J 




■56 


116 


119 


121 


Rl 


4'( 


b2 


60# 


66 


RELSFG 


119# 


119 






PELSGl 


1201* 


120 






RENMP 


6H 


6 






RTZER 


124 


12 6 






RUM 


6# 


6 






RUMAHL 


bit 


6 






RUNMSK 


bit 


6 






SAVOnt 


Tilt 


72 






SAVHr;H 


78 


Al# 






SD 


6# 


6 






SEGILM 


66# 


66 






SEGINI 


lis* 


:.15 






SETEXl 


71# 


71 






SETEXT 


70# 


70 






sethgh 


31 


33i» 







61 



1?1 



15!2 



1?!9 



47 

122 

92 



48 

129 

93 



49 

170 
"5 



5l2 

12k] 



51 



61* 



7B 



71 



72 



SG3 


79 


»5 


SGiMOD 


79 


R2 


SGFRRA 


79 


=(3 


SHF 


6# 


6 


SHRSrG 


6# 


b 


SLEVEL 


b* 


6 


SLICe 


6« 


6 


SNA 


bit 


6 


SPYSEG 


b« 


6 


STOPIO 


b» 


6 


STTYRl 


b« 


6 


STTY^F 


bit 


6 


RUMSFG 


53 


59l» 


SWP 


bit 


6 


SWPCLR 


bU 


6 


SY'Jyry 


btt 


6 


TAC 


bit 


6 


TACl 


b# 


6 


TEM 


b# 


b 


TRNERR 


b# 


b 


TTYATC 


btt 


b 


TTY8IU 


b# 


b 


ttyu<;e 


b« 


6 


UCHN 


b« 


b 


UCORHI 


•^i 


56# 


UGETHI 


73 


76# 


UGTERR 


74 


7 6 


UIOMOD 


6« 


6 


UNEMAP 


<i9# 


^9 


USPY 


13tJ« 


13U 


USPMOD 


btt 


6 


USRREL 


54 


56 


USTUWP 


1?3 


126ISI 


uun 


bit 


6 


UWP 


btt 


6 


UWPGEF 


btt 


6 


VNUL'^G 


14« 


1 4 


WTMASK 


bit 


6 



l.-'7 



56 



59 



If" 7 



conE<5 


6# 




























DISAPL 


6# 




























ENAfiLE 


6# 




























NOSCHE 


6# 




























NDSHUE 


6# 




























QUEUES 


b* 




























PCHEOU 


b# 




























SHUFFL 


6# 




























STARTO 


6# 




























yp 


6# 


6 


13 


36 


40 


41 


42 


43 


46 


47 


48 


49 


50 


51 




6i) 


69 


7f 


71 


91 


92 


9i 


94 


95 


114 


118 


119 


12Z 


lil 




i?a 


129 



























